home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / VLR-R&W.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  53 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   VLR-R&W .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  19. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  20.  
  21. $INCLUDE "DAS-NB02.INC"
  22. COLOR 7,0
  23. CLS
  24.  
  25. ? "┌────────────────────────────────────────────────────────────────────
  26. ? "│ VLRwrite1 ( FileNo%, D$ )        fVLRread1$( FileNo% )
  27. ? "│ VLRwrite2 ( FileNo%, D$ )        fVLRread2$( FileNo% )
  28. ? "├───────────────────────────────────────────────────────────────────────
  29. ? "│ The 1 and 2 in the names of these routines refer to the number of bytes
  30. ? "│ used to record the length of the data string. This style of storing data
  31. ? "│ is quite popular as it allows for very compact storage of data using a
  32. ? "│ BINARY file. It is really quite simple to use and understand and the
  33. ? "│ code below is quite explicit. The only thing you need remember is that
  34. ? "│ the 4 routines expect the file to be at the correct SEEK position when
  35. ? "│ they are called.
  36. ? "│ NOTE:  VLRwrite1 and fVLRread1$ work on strings up to a length of 255
  37. ? "│        VLRwrite2 and fVLRread2$ work on strings up to 32k in length
  38. ? "└────────────────────────────────────────────────────────────────────────
  39. ?                                              '┌────────────────────────
  40. F$   = "DUMMY.DAT"                             '│ a junk file
  41. F%   = FREEFILE                                '│
  42. D$   = "DASoft Libraries"                      '│ some variables
  43. P$   = "PowerBASIC"                            '│
  44.                                                '│
  45. OPEN "B", #F%, F$                              '│ open the file
  46.   VLRwrite1 F%, D$                             '│  notice the "sequential"
  47.   VLRwrite2 F%, P$                             '│  style of writing &
  48.   SEEK #F%, 0                                  '│  reading data
  49.   PRINT fVLRread1$( F% )                       '│
  50.   PRINT fVLRread2$( F% )                       '│
  51. CLOSE #1                                       '│ close the file
  52. fKILLfile F$                                   '│ keep your HD clean!
  53.